Komputer for Alle 2002 #10/K-CD-10-2002.ISO/Anokee Illuminator/anokeeilluminator.exe/%MAINDIR%/Illuminator.exe/0/RCDATA/TFMCONVERSIONWIZARD/TFMCONVERSIONWIZARD.txt

Text File | 2002-03-18 | 13.7 KB | 654 lines

object fmConversionWizard: TfmConversionWizard
  Left = 312
  Top = 104
  BorderStyle = bsDialog
  Caption = 'Conversion Wizard'
  ClientHeight = 576
  ClientWidth = 481
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Verdana'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 7
    Width = 301
    Height = 13
    Caption = 'The Wizard will help you with repetitive tasks!'
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Verdana'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object lbFilesToProcess: TLabel
    Left = 8
    Top = 25
    Width = 93
    Height = 13
    Caption = 'Files to process:'
  end
  object lbFileCount: TLabel
    Left = 112
    Top = 25
    Width = 7
    Height = 13
    Caption = '0'
  end
  object gbDownscale: TGroupBox
    Left = 8
    Top = 48
    Width = 465
    Height = 160
    Caption = 'Downscale: Choose the maximum size of images'
    TabOrder = 0
    object lbMaxSize: TLabel
      Left = 24
      Top = 72
      Width = 23
      Height = 26
      Caption = 'Max.'#13#10'Size'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      WordWrap = True
    end
    object lb1200: TLabel
      Left = 80
      Top = 44
      Width = 59
      Height = 13
      Caption = '1200 x 1024'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbPixels: TLabel
      Left = 152
      Top = 44
      Width = 27
      Height = 13
      Caption = 'Pixels'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lb1024: TLabel
      Left = 80
      Top = 64
      Width = 53
      Height = 13
      Caption = '1024 x 768'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lb800: TLabel
      Left = 80
      Top = 86
      Width = 47
      Height = 13
      Caption = '800 x 600'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbCustom: TLabel
      Left = 80
      Top = 109
      Width = 35
      Height = 13
      Caption = 'Custom'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label14: TLabel
      Left = 172
      Top = 109
      Width = 7
      Height = 13
      Caption = 'x'
    end
    object rbDownscale: TRadioButton
      Left = 8
      Top = 16
      Width = 345
      Height = 17
      Caption = 'Downscale all images to the following size'
      TabOrder = 0
      TabStop = True
      OnClick = rbDownscaleClick
    end
    object rbDontChangeSize: TRadioButton
      Left = 8
      Top = 135
      Width = 361
      Height = 17
      Caption = 'Don'#39't change'
      Checked = True
      TabOrder = 1
      TabStop = True
      OnClick = rbDownscaleClick
    end
    object tbImgSize: TTrackBar
      Left = 56
      Top = 44
      Width = 25
      Height = 78
      Enabled = False
      Max = 3
      Orientation = trVertical
      Frequency = 1
      Position = 2
      SelEnd = 0
      SelStart = 0
      TabOrder = 2
      ThumbLength = 10
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = tbImgSizeChange
    end
    object edCustomWidth: TEdit
      Left = 136
      Top = 105
      Width = 31
      Height = 21
      Enabled = False
      TabOrder = 3
      Text = '640'
    end
    object edCustomHeight: TEdit
      Left = 185
      Top = 105
      Width = 31
      Height = 21
      Enabled = False
      TabOrder = 4
      Text = '400'
    end
    object pnScale1200: TPanel
      Tag = 1200
      Left = 244
      Top = 53
      Width = 53
      Height = 74
      Cursor = crHandPoint
      Hint = '1200 x 1024 pixels'
      Caption = '1200'
      Color = clBlack
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = pnScale1200Click
    end
    object pnScale1024: TPanel
      Tag = 1024
      Left = 305
      Top = 73
      Width = 37
      Height = 53
      Cursor = crHandPoint
      Hint = '1024 x 768 pixels'
      Caption = '1024'
      Color = clGray
      TabOrder = 6
      OnClick = pnScale1200Click
    end
    object pnScale800: TPanel
      Tag = 800
      Left = 353
      Top = 89
      Width = 29
      Height = 38
      Cursor = crHandPoint
      Hint = '800 x 600 pixels'
      Caption = '800'
      Color = clSilver
      TabOrder = 7
      OnClick = pnScale1200Click
    end
  end
  object gbRotate: TGroupBox
    Left = 8
    Top = 213
    Width = 465
    Height = 89
    Caption = 'Rotate: Choose a rotation angle'
    TabOrder = 1
    object pnRotate90_1: TPanel
      Tag = 90
      Left = 147
      Top = 24
      Width = 20
      Height = 30
      Cursor = crHandPoint
      Hint = 'Rotate 90 degrees'
      Color = clGray
      TabOrder = 0
      OnClick = pnDontRotateClick
    end
    object pnRotate90_2: TPanel
      Tag = 90
      Left = 157
      Top = 34
      Width = 30
      Height = 20
      Cursor = crHandPoint
      Hint = 'Rotate 90 degrees'
      Color = clBlack
      TabOrder = 1
      OnClick = pnDontRotateClick
    end
    object rbRotate90: TRadioButton
      Left = 125
      Top = 62
      Width = 89
      Height = 17
      Caption = '90 degrees'
      TabOrder = 3
    end
    object rbRotate180: TRadioButton
      Left = 235
      Top = 62
      Width = 89
      Height = 17
      Caption = '180 degrees'
      TabOrder = 4
    end
    object pnRotate180_1: TPanel
      Tag = 180
      Left = 266
      Top = 24
      Width = 20
      Height = 30
      Cursor = crHandPoint
      Hint = 'Rotate 180 degrees'
      Color = clGray
      TabOrder = 6
      OnClick = pnDontRotateClick
    end
    object pnRotate180_2: TPanel
      Tag = 180
      Left = 276
      Top = 24
      Width = 20
      Height = 30
      Cursor = crHandPoint
      Hint = 'Rotate 180 degrees'
      Color = clBlack
      TabOrder = 7
      OnClick = pnDontRotateClick
    end
    object rbRotate270: TRadioButton
      Left = 360
      Top = 62
      Width = 89
      Height = 17
      Caption = '270 degrees'
      TabOrder = 5
    end
    object pnRotate270_2: TPanel
      Tag = 270
      Left = 408
      Top = 24
      Width = 20
      Height = 30
      Cursor = crHandPoint
      Hint = 'Rotate 270 degrees'
      Color = clGray
      TabOrder = 8
      OnClick = pnDontRotateClick
    end
    object pnRotate270_1: TPanel
      Tag = 270
      Left = 389
      Top = 34
      Width = 30
      Height = 20
      Cursor = crHandPoint
      Hint = 'Rotate 270 degrees'
      Color = clBlack
      TabOrder = 9
      OnClick = pnDontRotateClick
    end
    object rbDontRotate: TRadioButton
      Left = 8
      Top = 62
      Width = 97
      Height = 17
      Caption = 'Don'#39't change'
      Checked = True
      TabOrder = 2
      TabStop = True
    end
    object pnDontRotate: TPanel
      Left = 48
      Top = 24
      Width = 20
      Height = 30
      Cursor = crHandPoint
      Hint = 'Don'#39't rotate'
      Color = clGray
      TabOrder = 10
      OnClick = pnDontRotateClick
    end
  end
  object gbFiletype: TGroupBox
    Left = 8
    Top = 309
    Width = 465
    Height = 75
    Caption = 'Filetype: You can have all images converted to specific type'
    TabOrder = 2
    object imgJPG: TImage
      Tag = 1
      Left = 215
      Top = 18
      Width = 32
      Height = 32
      Cursor = crHandPoint
      Hint = 'Convert to JPG format'
      AutoSize = True
      Picture.Data = {<image000.ico>}
      OnClick = imgJPGClick
    end
    object imgGIF: TImage
      Tag = 2
      Left = 265
      Top = 18
      Width = 32
      Height = 32
      Cursor = crHandPoint
      Hint = 'Convert to GIF format'
      AutoSize = True
      Picture.Data = {<image001.ico>}
      OnClick = imgJPGClick
    end
    object imgTIF: TImage
      Tag = 3
      Left = 315
      Top = 18
      Width = 32
      Height = 32
      Cursor = crHandPoint
      Hint = 'Convert to TIF format'
      AutoSize = True
      Picture.Data = {<image002.ico>}
      OnClick = imgJPGClick
    end
    object imgBMP: TImage
      Tag = 4
      Left = 365
      Top = 18
      Width = 32
      Height = 32
      Cursor = crHandPoint
      Hint = 'Convert to BMP format'
      AutoSize = True
      Picture.Data = {<image003.ico>}
      OnClick = imgJPGClick
    end
    object Label3: TLabel
      Left = 8
      Top = 16
      Width = 143
      Height = 24
      Caption = 'Note that GIF image can'#13#10'only hold 256 colors (8 bits)'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
    end
    object Image1: TImage
      Tag = 5
      Left = 415
      Top = 18
      Width = 32
      Height = 32
      Cursor = crHandPoint
      Hint = 'Convert to BMP format'
      AutoSize = True
      Picture.Data = {<image004.ico>}
      OnClick = imgJPGClick
    end
    object rbDontChangeType: TRadioButton
      Left = 8
      Top = 54
      Width = 145
      Height = 17
      Caption = 'Don'#39't change'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object rbJPG: TRadioButton
      Left = 210
      Top = 54
      Width = 46
      Height = 17
      Caption = 'JPG'
      TabOrder = 1
    end
    object rbGIF: TRadioButton
      Left = 261
      Top = 54
      Width = 46
      Height = 17
      Caption = 'GIF'
      TabOrder = 2
    end
    object rbTIF: TRadioButton
      Left = 311
      Top = 54
      Width = 46
      Height = 17
      Caption = 'TIF'
      TabOrder = 3
    end
    object rbBMP: TRadioButton
      Left = 359
      Top = 54
      Width = 46
      Height = 17
      Caption = 'BMP'
      TabOrder = 4
    end
    object rbPNG: TRadioButton
      Left = 410
      Top = 54
      Width = 46
      Height = 17
      Caption = 'PNG'
      TabOrder = 5
    end
  end
  object gbDestination: TGroupBox
    Left = 8
    Top = 392
    Width = 465
    Height = 87
    Caption = 'Destination: Choose a destination folder'
    TabOrder = 3
    object rbDontChangeDestFolder: TRadioButton
      Left = 8
      Top = 64
      Width = 105
      Height = 17
      Caption = 'Don'#39't change'
      Checked = True
      TabOrder = 0
      TabStop = True
    end
    object edLocation: TEdit
      Left = 9
      Top = 38
      Width = 360
      Height = 21
      TabOrder = 1
      OnChange = edLocationChange
    end
    object btBrowse: TButton
      Left = 376
      Top = 35
      Width = 75
      Height = 25
      Hint = 'Browse for destination folder'
      Caption = 'Browse'
      TabOrder = 2
      OnClick = btBrowseClick
    end
    object cbPromptOverwrite: TCheckBox
      Left = 128
      Top = 64
      Width = 241
      Height = 17
      Caption = 'Prompt me before overwriting files'
      Checked = True
      State = cbChecked
      TabOrder = 3
    end
    object rbChangeFolder: TRadioButton
      Left = 8
      Top = 17
      Width = 233
      Height = 17
      Caption = 'Copy files to this folder when done'
      TabOrder = 4
    end
  end
  object gbGo: TGroupBox
    Tag = 3
    Left = 7
    Top = 483
    Width = 466
    Height = 86
    Caption = 'Ready to start!'
    TabOrder = 4
    object Label4: TLabel
      Left = 8
      Top = 15
      Width = 172
      Height = 13
      Caption = 'Press the "Go" button to start!'
    end
    object lbProcess: TLabel
      Left = 8
      Top = 28
      Width = 305
      Height = 13
      AutoSize = False
      Caption = 'Process'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = [fsBold]
      ParentFont = False
      Visible = False
    end
    object btGo: TButton
      Left = 335
      Top = 11
      Width = 57
      Height = 25
      Hint = 'Go convert!'
      Caption = '&Go!'
      Default = True
      TabOrder = 0
      OnClick = btGoClick
    end
    object btCancel: TButton
      Left = 399
      Top = 11
      Width = 57
      Height = 25
      Hint = 'Close this window'
      Cancel = True
      Caption = '&Cancel'
      ModalResult = 2
      TabOrder = 1
      OnClick = btCancelClick
    end
    object ProgressTotalBar: TProgressBar
      Left = 8
      Top = 64
      Width = 449
      Height = 17
      Min = 0
      Max = 100
      Smooth = True
      TabOrder = 2
      Visible = False
    end
    object ProgressCurrentBar: TProgressBar
      Left = 8
      Top = 45
      Width = 449
      Height = 17
      Min = 0
      Max = 100
      Smooth = True
      TabOrder = 3
      Visible = False
    end
  end
  object ltPreview: TLEADImage
    Left = 448
    Top = 8
    Width = 26
    Height = 25
    Ctl3D = False
    DrawMode = pmCopy
    EnableMethodErrors = False
    EnableProgressEvent = True
    FrameOuterShadowColor = clBlack
    ParentCtl3D = False
    PanWinPaintScaling = psNormal
    PanWinTitle = 'Pan Window'
    TabOrder = 5
    TextFont.Charset = DEFAULT_CHARSET
    TextFont.Color = clWindowText
    TextFont.Height = -11
    TextFont.Name = 'MS Sans Serif'
    TextFont.Style = []
    Visible = False
    OnStatus = ltPreviewStatus
  end
end